<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.ure</name>
<id>-1</id>
<cardCount>174</cardCount>
<cardID>2059</cardID>
<listID>3922</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>640</height>
</cardSize>
<script>global lastCardglobal lastBookon openCardenable menuItem "Print Text" of menu "File"enable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"enable menuItem "Copy Text" of menu "Edit"enable menuItem "Copy Image" of menu "Edit"put the number of lines in the voices into xif x > 0 thenenable menu "Reader"end ifif field "Caption" is EMPTY thenhide field "Caption"hide field "cTitle"hide field "cLine1"hide field "cLine2"elseshow field "Caption"show field "cTitle"show field "cLine1"show field "cLine2"end ifSend colorMe to this cardpass openCardunlock screenend openCardon WTIgoToSectiongo to card "x1" of stack "Guinness:mac:16in encyclopedia"end WTIgoToSectionon WTIgoToSubSectionput the short name of this card into xCardput char 2 to 4 of xCard into nCardif nCard < 20 thenput "x1a" into xCardelse if nCard < 40 thenput "x1b" into xCardelse if nCard < 58 thenput "x1c" into xCardelse if nCard < 62 thenput "x1d" into xCardelseput "x1e" into xCardend if-- put xCard-- x1 + (a - e)go to card xCard of stack "Guinness:mac:16in encyclopedia"-- answer "not in yet..."end WTIgoToSubSectionon WTIgoToSpreadput the short name of this card into xCardput char 1 to 5 of xCard & "1" into nCardgo to card nCardend WTIgoToSpreadon DisposeVideoglobal movieNameif movieName is not empty then-- put windows() into xListif offset( movieName, windows() ) = 0 thenelseclose window movieNameend ifput empty into movieNameend ifend DisposeVideoon PlayMovie movieSName, pPathglobal movieNameset cursor to 4DisposeVideo -- in case one's already thereput "Guinness:" & pPath & movieSName into MyMoovie-- put MyMoovie--QTMovie OpenMovie, windoid, MyMoovie, deepest, dontPaintWhite, closeOnFinish-- QTMovie OpenMovie, windoid, MyMoovie, deepest,,,,,,loopQTMovie OpenMovie, windoid, MyMoovie, deepest,,,,,,get the result-- put it into movieID-- put movieIDif "Error" is in it then-- put the resultanswer "Couldn't Play That Movie"exit PlayMovieelseput movieSName into movieNameend ifend PlayMovieon PlayMovieLooped movieSName, pPathglobal movieNameset cursor to 4DisposeVideo -- in case one's already thereput "Guinness:" & pPath & movieSName into MyMoovie-- put MyMoovie--QTMovie OpenMovie, windoid, MyMoovie, deepest, dontPaintWhite, closeOnFinishQTMovie OpenMovie, windoid, MyMoovie, deepest,,,,,,loop-- QTMovie OpenMovie, windoid, MyMoovie, deepest,,,,,,get the result-- put it into movieID-- put movieIDif "Error" is in it then-- put the resultanswer "Couldn't Play That Movie"exit PlayMovieLoopedelseput movieSName into movieNameend ifend PlayMovieLoopedon closeCardglobal lastCardglobal lastBookstop speechDisposeVideo -- in case one's already thereput "Guinness:Mac:Nature:Nature" into lastBookput the number of this card into lastCardset cursor to 4lock screenpass closeCardend closeCardon WTIprintImageget the short name of this cardput char 2 to 8 of it into xImageput "guinness:mac:Nature:" & xImage into fName-- put fNameput field "CAPTION" into xTitleput empty into char 200 of xTitlePICTPrint fName, xTitleend WTIprintImageon WTIcopyImageget the short name of this cardput char 2 to 8 of it into xImageput "guinness:mac:Nature:" & xImage into fName-- put fNamePICTtoScrap fNameend WTIcopyImageon colorMeAddColor colorCard,stamp,30end colorMe--on openStack-- AddColor install-- pass openStack--end openStack--on closeStack-- AddColor remove-- pass closeStack--end closeStackon startUpAddColor install,8AddColor enableend startUp------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on closeStackAddColor remove-- Called upon HOME or OPEN STACKdisable menu "Reader"pass closeStackend closeStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on openStackset lockScreen to true-- put "OPEN NATURE"AddColor installglobal QToperationalput 1 into QToperationalset lockMessages to trueQTMovie versionput the result into xxxxput it into kkkif "Error" is in xxxx thenanswer "QuickTime is not available, some options will not be available"put 0 into QToperationalend ifset lockMessages to false-- helpMenu -- Display CATEGORIES menupass openStackset lockScreen to falseenable menuItem "Print Text" of menu "File"enable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"enable menuItem "Copy Text" of menu "Edit"enable menuItem "Copy Image" of menu "Edit"put the number of lines in the voices into xif x > 0 thenenable menu "Reader"end if-- enable menuItem "Caption" of menu "Reader"-- enable menuItem "Main Text" of menu "Reader"end openStackon resumeStackenable menuItem "Print Text" of menu "File"enable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"enable menuItem "Copy Text" of menu "Edit"enable menuItem "Copy Image" of menu "Edit"put the number of lines in the voices into xif x > 0 thenenable menu "Reader"end ifend resumeStackon doMenu menuItemif menuItem is "Go Back" thenWTIgobackelse if menuItem is "Help" thenWTIhelpexit doMenuelse if menuItem is "Main" thenWTImainelse if menuItem is "Gallery" thenWTIgalleryelse if menuItem is "Explorer" thenWTIexploreelse if menuItem is "Credits" thenWTIcreditselse if menuItem is "Encyclopedia" thenWTIencyclelse if menuItem is "Languages" thengo to card 1 of stack "Guinness:mac:language samples" in a new windowelse if menuItem is "Print Text" thenWTIprintTextelse if menuItem is "Print Image" thenWTIprintImageelse if menuItem is "Copy Image" thenWTIcopyImageelse if menuItem is "About Hypercard..." thenWTIcreditsexit doMenuelse if menuItem is "Quit Encyclopedia" thendoMenu "Quit HyperCard"exit doMenuelse if menuItem is "Caption" thenstop speechspeak field "Caption"else if menuItem is "Main Text" thenstop speechspeak field "Text"else if menuItem is "Copy Text" thenget the selectedText -- (bg field "Text")if it is empty thenselect text of bg field "Text"end ifend ifpass doMenuend doMenuon WTIcreditsgo to card 1 of stack "Guinness:mac:16in Credits"end WTIcreditson WTInextif the number of this card = number of cards thengo to card "x1" of stack "Guinness:mac:16in Encyclopedia"elsego to nextend ifend WTInexton WTIpreviousif the number of this card = 1 thengo to card "x1" of stack "Guinness:mac:16in Encyclopedia"elsego to previousend ifend WTIpreviouson WTImaingo to card 1 of stack "Guinness:Mac:16in Main"end WTImainon WTIhelpgo to card 1 of stack "Guinness:Mac:16in Help"end WTIhelpon WTIquitdoMenu "Quit HyperCard"end WTIquiton WTIexplorego to card 1 of stack "Guinness:Mac:16in Explorer"end WTIexploreon WTIgallerygo to card 1 of stack "Guinness:Mac:16in Gallery"end WTIgalleryon WTIencyclgo to card 1 of stack "Guinness:Mac:16in Encyclopedia"end WTIencyclon WTIgobackglobal lastCardglobal lastBook-- go to card lastCard of lastBookgo to recent cardend WTIgobackon WTIgotopage CardN-- go to card CardN-- answer "go to card # " & CardN && "not in yet!"-- put CharToNum(CardN) into pp-- fix itput trunc( ((CardN)/2) ) * 2 into pp-- if pp -- make sure is even!!!if pp < 10 then -- pad with 000's--put NumToChar(pp) into xput "p00" & pp & "-1" into pppelse if pp < 99 then-- put NumToChar(pp) into xput "p0" & pp & "-1" into pppelse-- put NumToChar(pp) into xput "p" & pp & "-1" into pppend if-- put CardN && pp && ppp && char 2 to 6 of pppif last char of ppp is return thendelete last char of pppend ifif pp < 74 thengo to card ppp of stack "Guinness:MAC:Nature:16in Nature"else if pp < 106 thengo to card ppp of stack "Guinness:MAC:Earth:16in Earth"else if pp < 198 thengo to card ppp of stack "Guinness:MAC:Living:16in Living"else if pp < 252 thengo to card ppp of stack "Guinness:MAC:Human:16in Human"else if pp < 302 thengo to card ppp of stack "Guinness:MAC:World:16in World"else if pp < 358 thengo to card ppp of stack "Guinness:MAC:Technology:16in Technology"else if pp < 456 thengo to card ppp of stack "Guinness:MAC:History:16in History"else if pp < 498 thengo to card ppp of stack "Guinness:MAC:Religion:16in Religion"else if pp < 566 thengo to card ppp of stack "Guinness:MAC:Arts:16in Arts"else if pp < 600 thengo to card ppp of stack "Guinness:MAC:Music:16in Music"else if pp < 656 thengo to card ppp of stack "Guinness:MAC:Language:16in Language"elseanswer "Sorry, Countries of the World is not available here."end ifend WTIgotopageon WTIprintTextprint bg field textend WTIprintText</script>
